home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / examples / CheckBook.st < prev    next >
Encoding:
Text File  |  2002-03-13  |  189 b   |  16 lines
  1. Class CheckBook
  2. | balance |
  3. [
  4.    new
  5.       balance <- 0
  6. |
  7.    + amount
  8.       balance <- balance + amount.
  9.       ^ balance
  10. |
  11.    - amount
  12.       balance <- balance - amount.
  13.       ^ balance
  14. ]
  15.  
  16.